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IT = THTT IAL ES MULTI-PORT MEMORY ADAPTER 

RIM = INTERRUPT PRIMARY PROCESSOR 

CND = _INTERRUPT SECONDARY PROCESSOR 

TSR = PRIMARY PROCESSOR INTERRUPT SERVICE ROUTINE 
Ate. oR CONOnaY INTERRUPT SERVICE ROUTINE 

- Re 

CHECK = Relay bugcheck request to secondary and wait 
BUGCHK = Relay secondary's bugcheck request to primary 


lay invalidate request to secondary 
| 
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: Version: *v04-000' 
-MCALL MFPR 
TITLE Ad = MULTI-PROCESSOR INTERRUPT HANDLER 
-IDENT ‘v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
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j* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER: 
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++ 
Facility: Executive , Hardware fault handling 
Abstract: This module contains the VAX multiport memory interrupt handler. 
Environment: MODE=Kernel, Interrupt 
Author: RICHARD I. HUSTVEDT, Creation date: 15-May-1979 
Modified by: 
v03-007 KDM0026 Kathleen D. Morse 14-0ct-1982 
Cond’ tenet {ze time-out ie based on debugging switch 
so that taking a breakpoint on the secondary does not 
make the primary turn it of 
V03-006 KdR0018 athleen D. Morse 13-0c t-1982 
Add copie to SE ee code for secondary wait check 
reques 
v03-005 KDMO 090 Kathleen D. Morse 04-0c t-1982 


Add time-out logic to primary code that requests the 
secondary to do an invalidate of a system space address. 
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7a 
¢ 3 V03-004 KDM0012 Kechter D. Morse $B 559. 1982 

3 Add second error log buffer and clear MA/80 interrupt 
§ 3 before checking for reason of interrupt. 
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1-P 
T10 SEP=-1 MP.SRCIMPINT.MAR; 
6} -SBTTL DEFINITIONS 
8 3; INCLUDE FILES: 
64; 
65 
96 : 
: ° 3; MACROS: 
3 8 
3 Ee 
B 4 3; EQUATED SYMBOLS: 
$0 og SBUGDEF 3; Bugcheck indicator bit definitions 
000 74 SEMBDEF ; Error log message buffer definitions 
000 75 SEMBDEF SS ; Sys srv err log message buffer defs 
4 £6 SIPLOEF :; Interrupt pr sont cy levels 
00 7 SLCKDEF 3; Interlock bit definitons 
0000 78 SMPMDEF ; Multiport memory registers 
0000 79 SMPSDEF ; Secondary processor state definitions 
0000 80 SPCBDEF 3; Define PCB offsets 
0000 H SPHODEF 3; Define process header offsets 
0000 ¢ PRDEF ; Define processor registers 
0000 8 SPTEDEF 3; Define page table entry format 
0000 Be SRPBDEF ; Define reboot parameter block 
44 ? ADEF 3; Virtual address definition 
00000004 0000 e? MAX_PORTS = 4 ; Maximum number of ports 
44 89 ; 
000 90 ; OWN STORAGE: 
0000 91 ; 
00000000 92 -PSECT AEXENONPAGED,LONG 3 
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3F 
54 0000'CF 
00400000 A 


04 A4_ =FFO00001 B&F 


08 AS DO00E00O BF 
50. OC A4 
50 S8OOFFFFF 8F 


Oc AS) «=6550~—Cts«éO01 
10 AS 9000000C 8F 
00000400 8F 
18 as 
1C A4 
50-64 
00 
50 50 02 
0 19 
24 a6 «(OOF:CS 
3F 
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4 ; FUNCTIONAL DESCRIPTION: 

35 3; This routine is called af Fyeses initialization and after a power 
100 ; recovery restart to initialize the port adapter by clearing any 

: 3; errors and enabling all interrupts. 

103 ; 

Hf 3 OUPUTS: 

199 3 Any errors in port are cleared and all interrupts are enabled. 
108 ;-- 

109 MPSSMAINIT:: : 

110 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 

111 MOVL W“MPSSAL_MPMBASE ,R& ; Get base of MPM registers 
V1 MOVL #MPMSM_CSR_PU,= ; Clear any power-up status 

11 are, CSR(R4) 3 

114 MOVL #MPMSA_CR_ERRS!- 3 Clear any port errors and 
115 MPMSM_CR_AIE,- 3 Enable master interrupt 

138 ent CRTR4) : 

11 MOVL #MPMSA_SR_SS!- ; Clear any status errors and 
118 MPMSM_SR_TDL!- ; disable error interrupts 
119 MPMSM_SR_IT!- ; 

120 MPMSM_SR_AGP!~ : 

121 MPMSM_SR_MXF !~ j 

1 ¢ MPMSM_SR_ACA,=- ; 

1 MPMSL_SRTR4) ; 

124 MOVL MPMSL_INV(R4) ,RO 3; Get invalidation register 
125 BICL #*C<MPMSM_INV_STADR>,RO ; Clear all but starting address 
1 $ ASSUME MPMSV_INV Fa 0 ; Cached nexus id's start at 0 
1 BISL3 #180,RO,MPMSL_INV(R4) ; Set cpu (nexus 0) as cached 
128 MOVL #mpm$m ERR_ELR!- : Clear any errors 

129 MPMSM_ERR_IMP,- ; 

130 MPMSL-ERRTR4) : 

131 MOVL #MPMSA_CSR1_MIA,- ; Clear any error 

1 ¢ MPMSL_CSR1(R4) 3 

1 CLRL _MR CRS) 3; Clear any Sragnantte settings 
134 OVL MSL_CSR(R4) ,RO ; Get CSR register 

135 EXTZV #MPM V_CSR_PORT,- ; Get port number 

1 § #MPMSS £o8 PORT RO.RO : 

1 MULL #MAX_PORTS>R 3 Compute interrupt enable bit # 
1 3 ADDL #MPMSV_IIE CTL,RO B gee 

1 ASHL RO,#*XF MPASL_IIE(R4) ; Enable interport interrupts 
140 ; _from all ports 

141 POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 

146 RSB 3; Return 
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MPSSINTPRIM © INTERRUPT PRIMARY PROCESSO SaSEP-1o84 5:06:40 EAR Mme smBene Mees? age 2, V0: 
145 we ~SBTTL MPSSINTPRIM = INTERRUPT PRIMARY PROCESSOR 
149 FUNTIONAL DESCRIPTION: 
4 149 | MPSSINTPRIM is called to cause an interrupt to the primary processor. 
p i ? CALLING SEQUENCE: 
037 3 BSB/JSB MPSSINTPRIM 
of : INPUT PARAMETERS: 
7 157: NON 
0087 158 ; : 
0057 159 : OUTPUT PARAMETERS: 
0057 160: 
0057 (161: NONE 
9097 168 : 
057 16 
0057 164 MPSSINTPRIM:: 
OOO0O'DF O000'CF dO 0057 #165 MOVL W*MPSS$GL_PRIMSKT, au*MPSSéL arty idl i Trigger primary interrupt 
© Figs Wei reer 
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wetPLHASRROCESAORCANTERPUPT WMMOLED, cog “$SEDTI9R4 93:04:07 YAN ms NT LMARS | i v6 
a -SBTTL MPSSINTSCND = INTERRUPT SECONDARY PROCESSOR 
; FUNCTIONAL DESCRIPTION: 

MPSSINTSCND is called to interrupt the secondary processor. 
CALLING SEQUENCE: 
BSB/JSB MPSSINTSCND 
INPUT PARAMETERS: 
NONE 
OUTPUT PARAMETERS: 
NONE 


TR ee ee 


PSSINTSCND:: : 
MOVL W*MPSSGL_SCNDMSKT, a@W*MPS$GL_MPMIIR 3; Trigger secondary interrupt 
RSB 3; And return 


0000'DF  0000'CF 
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MP INT = MULTI=PROCESSOR INTERR -SEP-1984 04:07 VAX/VMS_Macro V04-00 Page 
v04-000 MPSSPINTSR = PRIMARY PROCESSOR INTERRUPT iets 7 $5 :88:9 ae ea me ine Mansy . 
ef 133 a -SBTTL MPSSPINTSR = PRIMARY PROCESSOR INTERRUPT SERVICE ROUTINE 
, 132 3; FUNCTIONAL DESCRIPTION: 
7 199 3; MPSSPINTSR is entered yie the interrupt vector for the MA780 in 
4 138 ; the primary processor in response to a call to MPSSINTPRIM. 
7 0 ie 
7 1 
7 § eALIGN LONG 
re MPSSPINTSR:: 3 cr tacry interrupt service routine 
50 43 be 4 PUSHL RO : Save R 
50 OO00'CF OD A 5 MOVL W*MPSSAL_MPMBASE ,RO ; Get base of MPM registers 
20 AO 0000" ¢F D O6F 06 MOVL § W*MPSSGL"PRIMSKC.MPMSL_IIR(RO) ; Clear pending interrupt 
0 8ED 5 POPL RO 3; Restore RO 
04 0000'cF O00 € Ore +3 beret #MPSS$V_SECBUGCHK ,W*MPSS$GL_SECREQFLG,10$ ; Br if no bugchk to do 
7E 10 BUG_CHECK MPBADMCK FATAL ; Jump to bugcheck code 
FEFF OO7E «WORD = “*XFEF 
0004' Bee elIF IDN <FATAL>,<FATAL> , .WORD BUGS$_MPBADMCK!4 
00000080 00 11 MPS$GW_BUGCHKCOD == .-2 3; Location for secondary to place the 
44 \§ mist wes 3 type of bugcheck it is requesting 
46 0000'CF 4 E7 008 14 10$: BBCCI] #MPSSV_SECERRLOG,W*MPSSGL_SECREQFLG,50$ ; Br if no errlog to do 
F BB 008 15 PUSHR #*M<RO,R1,R2,R5,R4,R5> ; Save registers 
2F 0000'cF 00 E7 O8A 1 BBCCI] #MPS$V_ERLBUF1,W°MPSSGL_ERLBUFIND,30$ ; Br if no entry in buf 1 
53 QOO0'CF 9E 090 1 MOVAB W*MPSSAL_ERLBUF1,R ; Get address of error log entry 
51 FC AS 3¢ 09 18 20$:  MOVZWL EMBSW_SIZE(R3) ,RI : Find size of error log entry 
55 51 10 C3 0099 219 SUBL3 #EMBSC_HD_LENGTH.R1,R5 ; Remember size of entry to move in 
00000000 ' GF 18 9 0 $B *ERLSALLOCEMB 3 Allocate an error log buffer 
19 20 E A 1 BLBC R ; Br if_none available 
62. 6 dO A ¢ MOVL EMBSL_HD_SID(R3) EMBSL_HD SID(R2) ; Set system ID in error msg 
04 A204 43 B80 OOA MOVW § EMBSWHD-ENTRY(RS) ,EMBSW_AD_ENTRY(R2) ; Set msg type in errlog 
DD OOA 4 PUSH Re ; Remember oddr ess of buffer 
10 A2. 10 A3 28 008 5 MOVC R ,EMBSC_HD_LENGTH(R3) ,EMBSC_HD_LENGTH(R ) ; Move msg into buf 
2 8ED0 0086 § POPL 3; Restore buffer address 
00000000 ' GF 18 089 JSB G*ERLSRELEASEMB ; Release the error log buffer 
07 0000'CF 01 3 OBF 8 30$: BBCCI #MPS$V_ERLBUF2 W°MPSS$GL_ERLBUF IND, 40$ ; Br if no entry in buf 2 
53 O000'CF 9E 00C5 9 MOVAB W*MPSSAL_ERLBUF2,R3 3; Get address of error log entry 
¢9 11 OOCA 0 BRB 3; Join common code 
F BA Bee 1 40$: POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
OCcE : 3; Nothing to be done at device IPL. This is either a spurious 
cE 4; Anterrups. or an event flag wait check request from the secondary, 
CE 5 ; or a legitimate reschedule request from the secondary. Cause the 
3 § : reschedule software interrupt and check for requested work at that 
CE 8: 
cE 9 50$: § SOFTINT #5 : Request IPL 5 interrupt 
02 BbD3 rt REI ; And return 
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INTERRUPT SERVICE SeSEPH1oBe BSibG.40 EAR/ YRS Macro yOsn0 ase OG, vol 
, __ sSBTTL_ MPSSSINTSR = SECONDARY INTERRUPT SERVICE ROUTINE 
FUNCTIONAL DESCRIPTION: 


MPSSSINTSR is enyeree in response to an interrupt on the secondary 
processor. The interrupt was sent for one of the following reasons: 


1) An AST was sent to the process currently 
running on the secondary 
(Primary processor is executing QAST.) 


MPINT = MULT 
v04-000 MPSSSINTSR 
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2) A systee space address was invalidated by 
the primary processor 
(Primary processor is executing FREWSL or PAGEFAULT.) 


3) The primary wants to bugcheck. 


The secondary processor, not knowing which reason the interrupt 
was sent, does the appropriate work to handle all the reasons. 
(Since the code is small, there is no need to figure out the real 
reason for the interrupt.) The following List corresponds to the 
work done to handle the above conditions causing an interrupt: 


4-4-4 -A- 4-4-4 AA AAA AAA AAA ALAZ AW 


1) The ASTLVL for the process currently running 
on the secondary is updated 


2 


~ 


An invalidate is done for the system space 
address indicated by MPSSGL_INVALID 


3) First, fold up the current process. 
Second, load the loop address into the RPB. 
pares acknowlege the bugcheck request. 


Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se SeSe Sse Sse Se SseSsete tse Sets Se 
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OOOOCoOoooooooooooosooooooooooooo: 


\-,~- 4-4-1 -1-4-4-4-A-A- 4-4-4144 AA 


0 
0 
p 
0 
0 Four halt to turn off mapping. Execution continues 
0 if restart is enabled, by the console program executing 
8 8 ” RESTAR.CMD. 
0 ALIGN LONG 
4 1 MPSSSINTSR:: 3; Secondary interrupt service routine 
50 oD 4 ; PUSHL RO 3; Save RO 
50 000' CF 4 6 MOVL W*MPSSAL_MPMBASE ,RO ; Get base of MPM registers 
20 Ad OOO'CF OD p08 4 MOVL W*MPSSGL~SCNDMSKC, PMSL_LIR(RO); Clear pending interrupt 
50 8ED0 O0E 5 POPL RO 3; Restore RO 
90 4 88 £8 BEA § BBSSI #LCKSV_INTERLOCK,W*MPSSGL TEL RE 38 3; Flush cache queue 
6 *CF E EA 5$: BBS #BUGSV_BUGCHK W°MPSSGL_BUGCHECK,10$'; Br if bugchecs requested 
4B 0000'CF 00 €0 te : BBS #MPSSV-STOPREG,W°MPSSGL_STOPFLAG,50$ ; Br if STOP/CPU requested 
: S' ; Update the ASTLVL for the process currently running on the secondary. 
DD i 36 ' PUSHL RO ; Save RO 
50 0000'CF 4 F 9 MOVL W*MPSSGL_CURPCB,RO 3; Get current PCB address 
6C A p FD 29% MOVL  PCBSL_PHB(RO) RO : Get PHD address 
50 OCF £0 0 0101 295 MOVE § PHDSB-ASTLVL(RO) RO ; And fetch ASTLVL 
1 DA : 3 2 MTPR RO, #PRS_ASTLVL 3; Update current value 
! 2 34 ; Invalidate the system space address that is contained in MPSSGL_INVALID. 


50 00000000'GF 

OOFC CO 60 00000100 8F 
0000° CF 

00 O000'CF 01 


50 00000000" GF 
OOFC CO 60 00000100 BF 
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00 0000°CF 
04 0000° CF 
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; ineat idete requested page 
CLRL MPSS$GL_ INVALID : And acknowledge it 
POPL RO 3; Restore RO 
REI 3; And continue 


up they processor has requested a bugcheck. The secondary must fold 
the process it is running and loop quietly in a safe place out of 
way of the primary. 


BBSSI #LCKSV_INTERL ge K,W°MPSS$GL {NTERLOCK.. ae e~ mn queue 
CMPL yORPSSL_ STATE ,AMPSSK_EXECSTATE ; LDPCT 

NEQ 0$ : Br if it y ent t A SVPCTX 
a ee guy +S eas i. current process 


GPEXESGL RPB,R address of R 
RPBsL ensecabye RPBSL SBUGCHRCROD = ; Load loop adr 


ADDL3 #RPBS 8 .WAIT 

MOVL InPSSens OPSTATE,Q*MPS$GL_ STAT Indicate processor not active 
BBSSI #BUG$V— “ACK UAMPSSGL_ PBUCtRECK 408 ; Acknowlege bugcheck request 
HALT ; This halt causes the secondary to 


‘ start executing RESTAR.CMD on the 
3; console device if restart is enabled. 


A STOP/CPU was issued. The a = Ot its current process, 
; if any, load a wait Loop into the R 


BBSSI #LCKSV_INTERLOCK,W*MPSSGL INTERLOCK ,60$ ; Flush cache queue 
CMPL W*°MPSSGL_STATE ,#MPSSK -EXECSTATE ; Is there a current process? 
BNEQ vO$ : or if no current state to save 
SVPCTX ave state of current process 

MOVL #MPSSK_DROPSTATE, wenssct Stite’: hg must take process back 
MOVL G*EXESGL_RPB.R addre of RPB 

ADDL3 #RPBSB WAIT. «RPBSL _pase rb, RPBSL. BUGCHK(RO) ; Load loop “dr 
CLRL.  WMPSSGL_INVALID indicate no invalidate to wait 

BBSSI WMPSEV. ST OPACK »W°MPSSGL._ * STOPFLAG.80$ ; Acknowlege STOP request 
HALT 3; Stop the secondary 
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§ ae -SBTTL MPSSINVALID = Relay invalidate request to secondary 
; FUNCTIONAL DESCRIPTION: 


a 
~ 


; MPSSINVALID relays a translation buffer invalidate request to 

; the secondary typ and waits for acknowledgement before 

; proceeding. Since PO pages are only referenced by the processor 
; woh poke executing a process, only system pages need to be 

3 rg - by both the primary and secondary processors at 

3; the same time. 


; This code is hooked into the pagefault exception handling code. 


beat ew ww oe? ot et et et ot et et es 
=—OOWNAUNE WN O OONOU SE W000 


CoO 0908 NINN INNS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
0190 
0170 MPSSINVALID:: : 
03 A3 84 8F BA QI 4 BICB #<PTESM_VALID!PTESM_MODIF Y>a-24,3(R3); Clear valid and modify 
01 3; (Replaced instruction) 
0175 INVALID R2 :; Invalidate for primary processor 
38 52 (O1F OE «0178 BBC #VASV_SYSTEM,R2,60$ 5 sony invalidate for system space 
017C ASSUME MPS$K STOPSTATE GT MPSS$K_INITSTATE 
00 O000'CF 00 £6 4 C BBSSI #LCKSV_INTERLOCK,W*MPSS$GC_INTERLOCK,10$ ; Flush cache queue 
05 0000'CF D1 1 $ 108: CMPL W*MPSSGL_STATE ,#MPSSK_INITSTATE 3; Secondary active? 
B 18 Q1 BGEQ ; Br if no, secondary not responding 
0000' CF 2 00 4 ; MOVL R2,W°MPSS$GL_INVALID ; Set address to invalidate 
018E 6¢ anv DF ,MPPFMSWT 
O18E 36 INCL  W*PFMSL_CNT_INVAL ; Add one to perf meas invalidate ctr 
Bise oe -ENDC 
FECE 30 S18E 66 BSBW MPSSINTSCND 3 penerryas secondary processor 
5A DD 0191 67 PUSHL R10 : Save R1 
5A OOESEICO 8F DO 0193 68 MOVL #15000000,R10 3: Initialize time-out counter 
02 SA F4 Rien $° 20$: SOBGEQ R10,30$ ; Repeat loop, waiting for secondary ack 
019D 71 IF NDF ,MPDBGSWT 
1B 411 019D ie; BRB 70$ ; Go log failure and turn off secondary 
019F 7 ~1FF :MPDBGSWT DEFINED 
019F 74 BRB S0$ : Don’t turn off secondary, just loop 
019F 75 3 (Tf debugging as breakpoints would 
019F 76 ; cause the secondary to get turned off 
O19t 378 tee: 
00 0000°CF 00 E6 Bie 79 30$: BBSSI #LCKSV_INTERLOCK,W*MPSSGL_INTERLOCK,40$ ; Flush cache queue 
OOOO'CF OD 1A5 4 40$: TSTL W*MPSSGL_PFAILTIM ; Has secondary powerfailed? 
06 12 ne 5} BNEQ 50$ ; Br if yes, don't wait for him 
O1AB g IF DF ,MPPFMSWT TH. 
1A8 4 INCL W*PFMSL_CNT_IWAIT ; Inc perf meas invalidate loop counter 
i. 5 -ENDC 
OO0OO'CF DS Q1AB ; TSTL W*MPSS$GL_INVALID ; Acknowledged yet? 
9 71 1AF 3 BNEQ 208 ; No, continue waiting 
A 8ED 181 1 $ POPL R10 3; Restore R10 
00000000'GF 1 ie 39 60$: JP G“MMGSFRE_TRYSKIP ; Continue with page fault 
1BA 92 ; 
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1BA 93 ; The secondary did a | acknowledge the invalidate request. Therefore, 
1BA 94 ; the primary assumes it has died. A message is Lageg in the error log 
1BA $1 ; and an ind cator is incremented showing that this failure occurred. 
1BA § 3; Then the multi-processing code is unhooked from the running system, 
1BA 97 ; making the primary tgnore any further activity from ye secondary. 
1BA 38 3; The pool space containing the multi-processing code is left untouched 
1BA 99 ; just in case the secondary is eventually resurrected and tries to 
1BA 400 ; continue dy pode If this happens, some unexpected snpereuee will 
1BA 401 ; probably be logged by the primary but nothing will have been lost, 
Hy Q § 3 except whatever process the secondary may have been running. 
1BA 404 ; This design at lows a gradual degradation of the system to a single 
ine ret 3 processor 11/780, instead of forcing a bugcheck. 
OOOO'CF 06 31BA 409 70S: INCL W*MPSSGL_INV_NACK :_ Indicate secondary did not acknowledge 
F 6B 10 408 PUSHR #*M<RO,RT,R2,R3,R4,R5> ; Save registers for MOVC 
51  00°BF 9A 0100 409 MOVZBL #MPS$C_INV_NACK,R1 ; Size of ASCII message text 
51 i CO 01C4 410 ADDL #<EMBSR_SS-LENGTH+3>,R1 ; Add in overhead for message 
>. 6G CA O1C7 411 BICL #3,R1 ; Buffer size modulo 4 
00000000'GF 16 OCA alg JSB G*ERLSALLOCEMB : Allocate error log buffer 
1€ 50 «ED 3100 41 BLBC RO, : if failure, just unhook MP code 
4 A2 7 BO 01D 414 MOVW #EMBSC_SS,EMBSW_SS_ENTRY(R2) ; Set type of error log message 
10 A2 O0000'8F 80 aes 415 MOVW #MPSSC_INV_NACK,EMBSW_SS_MSGS2(R2) 3; Set size of ASCII text msg 
52 OD O1DD 416 PUSHL R ; Save buffer address 
12 A2 OOOO'CF O000°8F 28 ODF 417 MOVC #MPSSC_INV_NACK,W*MPSS$T_INV_NACK,EMB$B_SS_MSGTXT(R2) 3 Msg txt 
52 BEDO O1E8 418 POPL R2 ; Restore buffer address 
Q0000000'GF 16 giee $38 JSB G*ERLSRELEASEMB ; Release error log buffer 
O1F1 421; 
O1F1 4 ¢ 3; Now unhook the multi-processing code and restore the system to 
gift : 3 a single processor 11/780, vanilla VMS system. 
00 00000000°EF 00 €6 O1F1 425 80S: BBSSI #MPSS$V_STOPREQ MPSSGL_STOPFLAG,90$ ; Indic primary forced a stop 
5A 00000000'GF ° O1F9 426 90S: MOVL “EXESGL_MP,R10 ; Get address of MP code 
FDFD" 30 3500 ri 44 BSBW W*MPSSUNROOK - Unhook MP code from VMS code 
O43F 8F BA 0203 428 POPR #°M<RO,R1,R2,R3,R4,R5,R10> ; Restore registers 
FFAA 31 0207 429 BRw 60$ ; Continue with normal VMS code 
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a -SBTTL MPSS$BUGCHECK - Relay bugcheck request to secondary and wait 
FUNCTIONAL DESCRIPTION: 
MPSSBUGCHECK makes sure that the secondary is out of the wey le 

ag to 


he primary procedes with the bugcheck logic. It sets a f 
ndicate a Qugcheck is requested. Then interrupts the secondary to 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sete 


A 4 
A 4 
A 4 
A 434 
A 435 
A 439 
A 4& 3 make it notice the poe be The primary then waits for the secondary 
: rtf to acknowlege the bugcheck request. 
. stg ENVIRONMENT: 
A 44 Executed by the primary processor. 
OA 444 IPL = $5 : , is 
8 A 445 
OA aap 
OA +38 MPSSBUGCHECK:: 3 
00 OO0O'CF 00 £6 OA 44 BBSSI #BUGSV_BUGCHK ,W*MPSS$GL_BUGCHECK,10$ ; Indicate bugcheck request 
10 450 ASSUME MPSSK STOPSTATE GT MPSSK_INITSTATE 
05 0000'CF D1 8 1 451 10$: CMPL W°MPSSGL_STATE ,AMPSSK_INITSTATE ; Is secondary active? 
1B «18 1 $26 BGEQ 0$ ; Br on oot active, don't request bugchk 
00 0000'CF 90 6 021 45 BBSSI #BUGSV_BUGCHK,W*MPSSGL_BUGCHECK,20$ ; Indicate bugcheck request 
FESF 0 021D 454 208: BSBW W*MPSSINTSCND ; Interrupt secondary to notice request 
50 QOE4EICO 8F D0 0 9 455 MOVL #15000000 ,RO ; Wait a significant amount of time 
02 OOOO'CF O01 E7 O $28 30$: BBCCI #BUGSV_ACK1,W°MPSS$GL_BUGCHECK,40$ ; Wait for secondary acknowlege 
93 11 Q22d 45 BRB ; Secondary done, continue with bugchk 
F550 F4 OQ22F 458 40$: SOBGEQ R0,30$ ; Repeat as secondary not acknowleged 
00000000'°9F 17 0232 459 50$: JMP av XESINIBOOTADP ; Continue with normal bugcheck code 
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‘ -SBTTL MPSSSECBUGCHK = Relay secondary's bugcheck request to primary 
FUNCTIONAL DESCRIPTION: 

MPSSSECBUGCHK is executed when the secondary processor wants to initiate 

; bugcheck. It yes a flag indicating a bugcheck is requested and 
nterrupts the primary to make it notice the flag. The secondary then 
waits for the primary to interrupt it with the actual bugcheck request 

by executing a self-branch. 

INPUTS: 


The return address posted on the stack by calling this routine 
is the address of the bugcheck code being requested. 


OUTPUTS: 
None 
ENVIRONMENT: 
Executed by the secondary processor. 


aw 
oo 


= MUL 
04-000 MPSS$S 
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PARAMS FAA AA AA AAA AAAI ot 


MPSSSECBUGCHK:: : 
FE42 CF 00 BE 80 MOVW a(SP) ,W*MPS$GW_BUGCHKCOD ; Set type of hugsbeck requested 
50 00000000'GF D0 MOVL.  G*EXESGL_RPB,RO -"Get address of RPB 
OOFC CO 60 00000100 BF C1 489 ADDL #RPBSB WAIT, RPBSL_BASE (RO) ,RPBSL BUGCHK(RO) ; Load loop adr 
490 SETIPL #IPL$_SYNCH 3; Lower IPL, enabling inter-proc intrpt 
00 0000'CF 00 £6 491 BBSSI #MPS$7_SECBUGCHK,W“MPSS$GL_SECREQFLG,10$ ; Set request flag 
FDFC 0 492 10$: BSBW W°MPSSINTPRIM : Interrupt grinery processor 
00 0000'CF 00 =«€€6 49 BBSSI #LCKSV_INTERLOCK,W°MPSS$GL_INTERLOCK,20$ ; Flush cache queue 
05 0000'CF D1 494 208: CMPL W*MPSSGL_STATE ,#MPSSK_INITSTATE 3; Secondary active? 
02. «18 495 BGEQ 40$ ; Br if not active 
FE 11 496 30$: BRB 30$ Wait for interrupt from primary to 
00 497 handle the bugcheck 


start executing RESTAR.CMD on the 


498 40S: HALT : This halt causes the secondary to 
: console device if restart is enabled. 
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Symbol table 


EMBSL_HD_SID 
EMBSW_HD_ENTRY 
EMBSW_ 
EMBSW_SS_ENTRY 
EMBSW-SS-MSGSZ 
ERLSACLOCEMB 
ERLSRELEASEMB 
EXESGL_MP 


EXESGL_RPB 
EXESINTBOOTADP 
IPL$_SYNCH 
LCKS9_INTERLOCK 
MMGSFRE_TRYSKIP 
MPMSL_CR 


MPMSL CSR 
MPMSL~CSR1 
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! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 

- ABS. 0000 88 ( -) 0 ¢ 9. NOPIC USR CON ABS LCL NOSHR NOEXE 

SABSS 0000 ( ) 1 ¢ * NOPIC USR CON ABS LCL NOSHR- EXE 

AE XENONPAGED 0000268 (¢ 619.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE 
peewee wom enn ones wm een eaaat 
H Performance indicators ¥ 

Phase Page faults CPU Time Elapsed Time 

Initialization 2 0: ot 0:00:01.15 

zounens processing 1 09: 0:00: ne: Toe 

Symbol table sort “ 09: af 01°20 90:00: 1.96 

we, table output 12 00:00: £00.09 00:00:00. $6 

Psect synopsis output § 00:00:00.02 ab Sh 3 

Cross-reference output 00:00: 99-98 BB: 8808 0 

Assembler run totals 576 00:00:13. 0:00:42.70 


The working set Limit was 1500 pages. 
47795 bytes (94 pages) of virtual memory were used to buffer the intermediate gsr. 
There were 50 pages of symbol table space el yocated to hold 791 non-local and 32 local symbols. 
07 source Lines were read in Pass 1, producing 17 object records in Pass 2. 
pages of virtual memory were used to define 29 macros. 


Macro Library name Macros defined 


-$255$DUA28: CMP. OBJ IMP. wd . 4 
- 55$0UA28:(SYS.OBJJLIB.M 17 

$255SDUA28: SySi IBISTARLET. a's: 2 5 
TOTALS (all Libraries) 26 


950 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
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